Option Explicit
Sub J_Sample019()
    'wnsWOC
    With Application.CommandBars(1)
        .Reset
        With .Controls.Add(Type:=msoControlComboBox)
        .AddItem "Excel"			'sWC
        .AddItem "Access"
        .AddItem "PowerPoint"
        .AddItem "Word"
        .OnAction = "J_Sample019_1"
        End With
    End With
End Sub

Sub J_Sample019_1()
    'CܮɪBz
    With Application.CommandBars(1).Controls
    MsgBox .Item(.Count).Text
    End With
End Sub

Sub J_Sample019_2()
    ']
    Application.CommandBars(1).Reset
End Sub
